@echo off
echo Dim WSH As WshShell>>tmp.vbs
echo Dim oShellLink As WshShortcut>>tmp.vbs
echo Dim strDesktop As String>>tmp.vbs
echo set WSH =  new WshShell>>tmp.vbs

echo strDesktop = WshShell.SpecialFolders("Desktop") >>tmp.vbs 
echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\proxy on chrome.lnk") >>tmp.vbs 
echo oShellLink.TargetPath = "D:\Program Files\proxy\start.exe" >>tmp.vbs 
echo oShellLink.WindowStyle = 1 >>tmp.vbs 
echo oShellLink.IconLocation = "D:\Program Files\proxy\goagent.exe, 0" >>tmp.vbs 
echo oShellLink.WorkingDirectory = "D:\Program Files\proxy">>tmp.vbs
echo oShellLink.Description = "12321354646" >>tmp.vbs 
echo oShellLink.Save >>tmp.vbs 
"%SystemRoot%\System32\WScript.exe" tmp.vbs 
@rem del /f /s /q tmp.vbs  
pause